home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / info / cad08n11.zip / TEST3.LSP < prev   
Lisp/Scheme  |  1994-02-01  |  403b  |  17 lines
  1. (defun C:test ()
  2.    (setq temperr *error*)
  3.    (setq *error* trap1)
  4.    (setq s (getstring "\nType something in.  "))
  5.    (terpri)(prompt s)
  6.    (princ "\nThis is a test without an error.  ")
  7.    (setq *error* temperr)
  8.    (princ)
  9.  )
  10.  
  11.  (defun trap1 (msg)
  12.    (princ "\nAn error has occurred!  ")
  13.    (princ "\nThe error was:  ")(prompt msg)(prompt "  ")
  14.    (setq *error* temperr)
  15.    (princ)
  16.  )
  17.